home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
sac.zip
/
FOXPRO.ZIP
/
SACPR3.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-08-27
|
16KB
|
328 lines
[\<1] - 80 Column Variable Star Report
[\<2] - 132 Column Variable Star Report
[\<3] - Word for Windows (Variable Star Data File)
[\<4] - 80 Column Variable Star Log Report
[\<Q] - Quit to report menu
DEACTIVATE POPUP
SACPR3
: :
Print
cPRNf
WINDOW
NFORM_SCR
U2000
TIRION
DEXDDATE
DDATE_1
EXDDATE_2
CTIME
CNOTES
DEXAZ
NINDEX
NORDER
NPR_SS
YESNO
CPR_GIF
CPR_PRN
OPTION
CFILE
CPR_WFW
PRINT
: :
99:99:99
Ascending
Descending8
SET ORDER TO nINDEX &cORDER
INDEX ON UPPER(CLUBS)+UPPER(NAME) TO
FOR CLUBS <> SPACE(10)
.AND.
mNAME$UPPER(NAME)
.AND.
mSTAR$UPPER(STAR)
.AND.
mTYPE=TYPE
.AND.
CONST=mCONST
.AND.
RA-nFAC<=mRA.AND.mRA<=RA+nFAC
.AND.
DEC-nFAC<=mDEC.AND.mDEC<=DEC+nFAC
.AND.
MAG1-nFAC<=mMAG1.AND.mMAG1<=MAG1+nFAC
.AND.
MAG2-nFAC<=mMAG2.AND.mMAG2<=MAG2+nFAC
.AND.
PERIOD-nFAC<=mPERIOD.AND.mPERIOD<=PERIOD+nFAC
.AND.
mSPEC$SPEC
.AND.
mCLUBS$UPPER(CLUBS)
.AND.
mNOTES$UPPER(NOTES)
SET FILTER TO &cD
.AND.
dDATE_1<=LOG_DATE
.AND.
LOG_DATE<=dDATE_2
SET FILTER TO &cD
Press [ESC] to return to main menu...
cVBL_INDEXf
CTIME
DDATE
M_SCR
CORDER
NORDER
CVBL_INDEXNINDEX
FNFILE
DEXPLSWAIT
FNTALK
_INDEXNAME
MNAME
MSTAR
MTYPE
CONST
MCONST
MMAG1
MMAG2
PERIOD
MPERIOD
MSPEC
MU2000
U2000
MTIRION
TIRION
CLUBS
MCLUBS
CNOTES
MNOTES
VBLLOG
DDATE_1
DDATE_2
PRINT1
PRINT2
PRINT3
PRINT4
CDATAPATH
NFORM_NDX
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column Variable Star Report
Date is
Variable Star Filter is
?? &cPR_BOFF
Name:
Star:
Type of Object:
M->TYPE
Constellation :
M->CONST
L.S.T.:
Right Ascension : F
99.9999c
Azimuth (DDD.MMSS):F
999.9999c
Date:
Declination :F
999.9999c
Altitude (DDD.MMSS):F
999.9999c
Time:
Maximum Magnitude: F
Minimum Magnitude:
Period: F
Spectrum:
U 2000 :
Clubs:
Tirion 2000:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
NRPT_ROW
NRPT_MAX
INDEXDDATE
DEXLST
CTIME
INDEXDMS
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
CVBL_NAME
FLD_DES
CONST
PERIOD
CLUBS
T_ROW
NOTES
CGIFPATH
CPR_GIF
PRINT_GIF
THERM
?? &cPR_CON
bESC =.T.
?? &cPR_BON
Page F
132 Column Variable Star Report
Date is
Variable Star Filter is
RA Max Tirion
Name Star Type Const Dec. Min Per Spec U2000 Clubs
----------------- ----------------- ----- --- ------- ---- -------- --- ---------------- ----------
?? &cPR_BOFF
F
Notes:
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
NRPT_ROW
NRPT_MAX
INDEXDDATE
DEXLST
CTIME
INDEXDMS
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
CVBL_NAME
CONST
PERIOD
CLUBS
T_ROW
NOTES
THERM
CONST
PERIOD
U2000
TIRION
NOTES
CLUBS
bESC =.T.
Number of Printed Records = F
CFILE
NCOUNT
DDATE
CTIME
NDEXCLST
DEXNRA
INDEXNAZ
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
CONST
PERIOD
NOTES
NNOTES
CLUBS
THERM
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column Variable Star Log
Date is
Variable Star Filter is
?? &cPR_BOFF
Name:
Star:
Type of Object:
M->TYPE
Constellation :
M->CONST
L.S.T.:
Right Ascension : F
99.9999c
Azimuth (DDD.MMSS):F
999.9999c
Date:
Declination :F
999.9999c
Altitude (DDD.MMSS):F
999.9999c
Time:
Maximum Magnitude: F
Minimum Magnitude:
Period: F
Spectrum:
U 2000 :
Clubs:
Tirion 2000:
Log Date: F
Log Time:
Log Date: F
Log Time:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
NRPT_ROW
NRPT_MAX
NDEXDDATE
DEXLST
CTIME
INDEXDMS
CNAME
CSTAR
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
VBLLOG
CVBL_NAME
FLD_DES
CONST
PERIOD
CLUBS
LOG_DATE
LOG_TIME
T_ROW
NOTES
CGIFPATH
CPR_GIF
PRINT_GIF
THERM
PRINT
PRINT1
PRINT2
PRINT3
PRINT4
D:\SKY\SAC\
SACPR3.FXP
D:\SKY\SAC\SACPR3.PRG